home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln1085.arc / P2.PAS < prev    next >
Pascal/Delphi Source File  |  1986-02-27  |  768b  |  30 lines
  1. program p2;   {check GSX text features}
  2. const nsize = 8;
  3. type
  4.      pointlist = array[1..nsize] of integer;
  5. var
  6.     j: ^integer; i,k,a,b,c,d : integer;
  7.     points : pointlist;
  8.         st : string[255];
  9.  
  10. {$iB:GSXWORK.INC}
  11. {$iB:GSXTEXT.INC}
  12. {$iB:GSXCOLOR.INC}
  13.  
  14. begin
  15.    write('Enter workstation number > ');  readln(i); writeln;
  16.    openstation(i);
  17.    st := 'hello there ';
  18.    showtext(st,length(st),0,10000);
  19.    settextheight(2000,a,b,c,d);
  20.    showtext(st,length(st),0,15000);
  21.    settextangle(450,a);
  22.    for i := 1 to 16 do begin
  23.       settextcolor(i,a);
  24.       showtext(st,length(st),1000,1000);
  25.    end;
  26. readln;
  27.    clearstation;
  28.    closestation
  29. end.
  30.